home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 March / EnigmA AMIGA RUN 05 (1996)(G.R. Edizioni)(IT)[!][issue 1996-03][Skylink CD IV].iso / earcd / comm2 / amislt14.lha / AmiSlate / ExampleRexx / constants.rexx < prev    next >
OS/2 REXX Batch file  |  1996-01-27  |  2KB  |  48 lines
  1. /* Constants for use with AmiSlate's ARexx interface */
  2.  
  3. /* When communicating information about which tool (a.k.a mode) the local
  4.    or remote client is in, AmiSlate makes use of the following constants.
  5.    It is a good idea to copy the following declarations into the beginning
  6.    of your ARexx program in order to later easy refer to different modes. */
  7.  
  8. /* Mode Constants for use with AmiSlate's ARexx interface */
  9. AMode.DOT      =  0 
  10. AMode.PEN      =  1 
  11. AMode.LINE     =  2 
  12. AMode.CIRCLE   =  3 
  13. AMode.SQUARE   =  4 
  14. AMode.POLY     =  5 
  15. AMode.FLOOD    =  6 
  16. AMode.DTEXT    =  7 
  17. AMode.FILLCIRCLE = 13
  18. AMode.FILLSQUARE = 14
  19.  
  20. /* When replying to the WaitEvent function, AmiSlate uses a set of message 
  21.    codes to indicate which type of event occured.  Note that despite the 
  22.    binarily-disjoint nature of the following constants, only one type
  23.    of event currently is replied per WaitEvent call. */
  24.  
  25. /* Message reply codes for use with AmiSlate's ARexx interface */
  26. AMessage.TIMEOUT      = 1    /* No events occurred in specified time period */
  27. AMessage.MESSAGE      = 2    /* Message recieved from remote Amiga */
  28. AMessage.MOUSEDOWN    = 4    /* Left mouse button press in drawing area */
  29. AMessage.MOUSEUP      = 8    /* Left mouse button release in drawing area */
  30. AMessage.RESIZE       = 16    /* Window was resized--time to redraw screen? */ 
  31. AMessage.QUIT         = 32    /* AmiSlate is shutting down */
  32. AMessage.CONNECT      = 64    /* Connection established */
  33. AMessage.DISCONNECT   = 128    /* Connection broken */
  34. AMessage.TOOLSELECT   = 256    /* Tool Selected */
  35. AMessage.COLORSELECT  = 512    /* Palette Color selected */
  36. AMessage.KEYPRESS     = 1024    /* Key pressed */
  37. AMessage.MOUSEMOVE    = 2048    /* Mouse was moved */
  38. AMessage.REMMOUSEMOVE = 4096    /* Remote mouse was moved */
  39.  
  40. /* Furthermore, when MESSAGE events are replied, the following subtypes
  41.    (returned in the code1 result variable) reflect the origin of the
  42.    received method: */
  43.  
  44. AMessageOrg.STRINGUSER      = 1    /* String was sent by remote ARexx script */
  45. AMessageOrg.STRINGEASYREQ   = 2 /* String was sent by remote EasyRequester */
  46. AMessageOrg.STRINGSTRINGREQ = 3 /* String was sent by remote StringRequester */
  47.  
  48.